Top 10k strings from American Football (1984)(Mind Games).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
20 DB 00011000B
11 DB 00111100B
3 DB 00011100B
3 B0=J+(B1=J):
2 Z$="LOSES ":
2 Z$="GAINS ":
2 YTG=YTG-GN:
2 SF=I(OT,DT,J)+
2 R+":"+("0"
2 R(I(OT,DT,2
2 J,O;" ";X$;" START FROM THEIR 20 ":
2 DT=J+(Z>40
2 DB 00111000B
2 "23296",O:
2 NO YARDAGE GAINED!
1 Z$=X$+" DEFENCE?"
1 Z$="TAILS"
1 Z$="HEADS":
1 Z$=" PUNT "
1 Z$=" KICK ":
1 Z$;" - ";;D$(DT):
1 YTG=YTG-YD:
1 YTG=YTG-GN
1 YTG=YTG+YD
1 X,Y+I;X$(I+J):
1 X$=X$+" to call -"
1 X$=X$+" WIN AND WILL RECEIVE":
1 X$=X$+" STATISTICS ":
1 X$=T$(J+(Z$=Y$)):
1 X$=T$(B0):
1 X$=T$(B(J)):
1 X$="You may name both teams":
1 X$="You may call -":
1 X$="We will toss the coin":
1 X$="NAME YOUR TEAMS"
1 X$="H for HEADS or T for TAILS":
1 X$="2 - PLAYER versus PLAYER":
1 X$="1 - PLAYER versus SPECTRUM":
1 X$=" YOUR":
1 X$=" YOUR TEAM - ":
1 X$=" THE SCORE IS TIED ":
1 X$=" Select Game Type (1 or 2)":
1 X$=" SPECTRUM TEAM - ":
1 X$=" HALF-TIME"
1 X$=" GAME"
1 X$=" FINAL":
1 X$=" 0:00":
1 X$=" ** TOUCHDOWN FOR "+X$+" ** ":
1 X$=" ** INSTRUCTIONS ** ":
1 X$=" ## APS AMERICAN FOOTBALL ## ":
1 X$=" "+X$+" CHOSE "+Z$+" ":
1 X$=" TEAM TWO - "
1 X$=" TEAM ONE - "
1 U(B1)=U(B1)+J
1 T(R)=T(R)-J:
1 SUDDEN-DEATH EXTRA TIME PERIOD
1 SF=(SF+100
1 S(B1)=S(B1)+J:
1 S(B1)=S(B1)+6
1 S(B1)=S(B1)+3
1 S(B0)=S(B0)+2
1 R(Z)+B+SF/10
1 QTR=QTR+J:
1 PENALTY:NUM-YD
1 PASS:ATTD-COMP
1 O,O;" PASS INTERCEPTED IN END ZONE - ";
1 O,O;" ";X$;" RECEIVE ON ";YD;" YD LN "
1 O,O;" ";X$;" QUARTERBACK SACKED! ";
1 O,O;" THE KICK GOES INTO END ZONE ";X$;" START FROM THEIR 20 ";:
1 O,O;" END OF GAME
1 O,J;" YOUR"
1 O,J;" ";YD;" YD PENALTY ON ";X$;" "
1 O,J;" ";X$;" PASS INTERCEPTED! ":
1 O,J;" ";X$;" CHOOSE FIELDGOAL "
1 O,J;" ";X$;" CHOOSE ";O$(OT);" ":
1 J;" FIRST DOWN FOR ";X$;" ":
1 J;" *TOUCHDOWN* ":
1 J;" ** TWO MINUTE WARNING ** ":
1 J;" ** TOUCHDOWN ** ":
1 J;" ";X$;" FUMBLE ! ":
1 J;" ";T$(R);" TAKE A TIMEOUT ":
1 J;" WOULD YOU LIKE TO PLAY AGAIN? "
1 J;" END OF QUARTER ";Z;" ":
1 J;" END OF 1st HALF ":
1 J;" ";X$;" RUN BACK FOR A ";
1 J,O;X$;X$;Y$;X$;"
1 J,O;X$;" CHOOSE TO ";O$(OT)
1 J,O;"AND RUN BACK FOR A ";
1 J,O;"AND ";X$;" RECOVER THE BALL":
1 J,O;" PLAY LOSES ";
1 J,O;" ** FIELDGOAL FOR ";T$(B1);" ** ":
1 J,O;" ";X$;" START FROM THEIR ";B(2
1 J,O;" ";X$;" CAUGHT FOR A SAFETY "
1 J,O;" DO YOU WANT INSTRUCTIONS? ":
1 J,O;" AND RUN BACK ";GN;" YARDS
1 J,J;" FIRST DOWN ON ";X$;" ";B(2
1 J,J;" BALL TO ";X$;" ON DOWNS ":
1 J,J;" ";X$;" RUN BACK ";GN;" YARDS "
1 J,J;" ";X$;" CHOOSE ";D$(DT);
1 J,J;" ILLEGAL PLAY - TRY AGAIN ":
1 GN;" YARDS ":
1 GN;" YARD";"S"
1 F'GOAL:ATT-MDE
1 DT=J+(Z>45
1 DT=J+(Z>30
1 DT=J+(Z>15
1 DT=J+(Z>10
1 DB 11110000B
1 DB 10010000B
1 DB 00010000B
1 DB 00001111B,0
1 DB 00001001B,1
1 DB 00001001B,0
1 DB 00001000B,01
1 DB 00001000B
1 D(B1,J)=D(B1,J)+J:
1 B1=J+(Z$=Y$):
1 B1=J+(TR=J):
1 B(J)=J+(B(J)=J)
1 == OTHER COMMANDS ==
1 == OFFENCE PLAYS ==
1 == DEFENCE PLAYS ==
1 ;T(R);" LEFT IN THIS HALF"
1 ;D(J,J)+D(J,2
1 ;"TEAMS CHANGE ENDS":
1 ;"PRESS ANY KEY TO CONTINUE"
1 ;"BUT THEY RECOVER":
1 ;"(PRESS 'P' FOR PRINTOUT)";
1 ;"(MAXIMUM 10 LETTERS)":
1 ;" TO ";X$;" ";B(2
1 ;" POINT AFTER GOOD ":
1 ;" POINT AFTER FAILED ":
1 ;" PLAY ";Z$;GN;" YARD";"S"
1 ;" PLAY ";Z$;
1 ;" OFFENCE?":
1 ;" HALF DISTANCE TO GOAL LINE "
1 ;" FIELDGOAL ATTEMPT FAILS! ":
1 ;" - ";O$(OT)
1 ;" ";X$;Z$;GN;" YARDS"
1 ;" ";X$;" RETURN IT FOR A ";
1 ;" ";X$;" RETURN IT ";GN;" YARDS":
1 ;" ";X$;" PASS INCOMPLETE ":
1 ;" ";X$;" PASS COMPLETE "
1 ;" YOU HAVE 2 TIMEOUTS ";
1 ;" THE KICK IS SHORT! "
1 ;" GOODBYE ";
1 ;" ";X$;" KICK OFF "
1 ;" PENALTY ON ";X$;" - ";
1 ;" PRESS ANY KEY TO CONTINUE "
1 ; Side 2 - Player 01
1 ; Side 1 - Player 01
1 ; Player/sprite workarea
1 57344,8192
1 01B,10010000B
1 010B,00010000B
1 ,O;"You take the role of Team Coach and have to lead your side in the tactical battle against the Opposing Team."
1 ,O;" PRESS ENTER TO CLEAR COMPUTER ":
1 *(B(J)=F(2
1 )>S(J))*(ST=O);S(2
1 );"-";D(J,6
1 );"-";D(J,17
1 );"-";D(J,14
1 );"-";D(J,13
1 );" YARD LINE ":
1 )/D(I,J)+0.5
1 ))*(ST=O);T$(J);" ";S(J);
1 (YTG*(YTG<0
1 '"You need to make the strategic decisions necessary for your team to keep or gain posession of the ball and to score those all important touchdowns."
1 '"Available to you is a choice of 8 Offence and 4 Defence plays, as well as Punt, Kick, Fieldgoalattempt or Timeout options."''"Let's have a look at them ...."
1 #^#V#N#F#
1 "RUN","PASS","BLITZ","SHORT"
1 "RU","PA","BL","SH","TO"
1 "BOMB","POCKET","SHOTGUN","SCREEN","CENTRE","DRAW","SWEEP","REVERSE","PUNT","KICK","FIELD GOAL","TIMEOUT"
1 "BO","PO","SH","SC","CE","DR","SW","RE","PU","KI","FG","TO"
1 ";X$;Y$;X$;X$
1 "23328",GN
1 "23320",IP:
1 "23319",ZX:
1 "23300"+(B1=J)*3
1 "23300"+(B1=2
1 "23300"+(B0=J)*3
1 "23300"+(B0=2
1 YARDS TO GO
1 TOUCHDOWN
1 TIMEOUT
1 TIME LEFT :
1 THE GAME MOVES INTO A 15 MIN
1 STATISTICS
1 SPECTRUM TEAM -
1 SHOTGUN
1 SHORT
1 INTERCEPTIONS
1 FUMBLS-RECOVS
1 FIELD GOAL ATTEMPT
1 END OF GAME ":
1 CENTRE
1 YARDS/PUNT
1 YARDS/PASS
1 TOTAL YARDS
1 Q.B. SACKS
1 PASS YARDS
1 FIRST DOWNS
1 YARDS/RUN
1 RUN YARDS